home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D3B.D64 / opcode scanner (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.5 KB  |  551 lines
  1. 1 REM**********************************
  2. 2 REM*                               **
  3. 3 REM* OPCODE....BY PAUL RATHBONE.   **
  4. 4 REM*                               **
  5. 5 REM*   FOR COMMODORE DISK USER     **
  6. 6 REM*                               **
  7. 7 REM*     COPYRIGHT JULY 1988       **
  8. 8 REM**********************************
  9. 9 REM**********************************
  10. 10 IF A=0 THEN A=1:LOAD"OP",8,1
  11. 15 DIM YE$(51):CLOSE1:OPEN1,4
  12. 20 GOSUB 12000:REM************ARRAYS***
  13. 25 LX=0:GOSUB4000
  14. 30 GOSUB9200:GOSUB7900:GOSUB7300:REM*CLS******SCR/PRT***
  15. 40 IF PR$="P" THEN GOSUB5400
  16. 100 GOSUB9200:FOR Y=1 TO 7
  17. 110 ON Y GOSUB 1000,1100,1200,1300,1400,1500,1600
  18. 120 GOSUB 7200:REM**************WAIT***
  19. 130 GOSUB 9200:REM***************CLS***
  20. 140 NEXT Y
  21. 150 GOSUB 6400
  22. 160 IF ME=1 THEN GOSUB5800:ME=0
  23. 170 IF ME=2 THEN GOSUB6600:ME=0
  24. 180 IF ME=3 THEN GOTO25
  25. 190 IF ME=4 THEN SYS64738
  26. 200 GOTO150
  27. 1000 GOSUB 5600:REM******HEADER(LAX)***
  28. 1010 LL=10000:AD=49955:POKE(AD+3),198
  29. 1020 FOR X=1 TO 7
  30. 1030 GOSUB8500:REM**********LINE NO.***
  31. 1040 ON X GOSUB 10000,10010,10020,10030,10040,10050,10060
  32. 1050 GOSUB7000:REM******PROCESS VALS***
  33. 1060 OP$=LAX$(X,1):GOSUB7500
  34. 1070 GOSUB5200:REM********PRINT VALS***
  35. 1080 NEXTX:IF PR$="P" THENPRINT#1,""
  36. 1090 RETURN
  37. 1100 GOSUB5600:REM*******HEADER(AS0)***
  38. 1110 LL=10100:POKE(AD+2),175
  39. 1120 FORX=1 TO 7
  40. 1130 GOSUB8500:REM**********LINE NO.***
  41. 1140 ON X GOSUB 10100,10110,10120,10130,10140,10150,10160
  42. 1150 GOSUB7100:REM****PROCESS VALS****
  43. 1160 OP$=ASO$(X,1):GOSUB7500
  44. 1170 GOSUB5000:REM********PRINT VALS***
  45. 1180 NEXTX:IF PR$="P" THENPRINT#1,""
  46. 1190 RETURN
  47. 1200 GOSUB5600:REM*******HEADER(RLA)***
  48. 1210 LL=10200
  49. 1212 IF CA$="S" THEN POKE (AD+2),3
  50. 1216 IF CA$="C" THEN POKE (AD+2),2
  51. 1220 FORX=1 TO 8
  52. 1230 GOSUB8500:REM**********LINE NO.***
  53. 1240 ON X GOSUB 10200,10210,10220,10230,10240,10250,10260,10270
  54. 1250 GOSUB7100:REM******PROCESS VALS***
  55. 1260 OP$=RLA$(X,1):GOSUB7500
  56. 1270 GOSUB5000:REM********PRINT VALS***
  57. 1280 NEXTX:IF PR$="P" THENPRINT#1,""
  58. 1290 RETURN
  59. 1300 GOSUB5600:REM*******HEADER(INS)***
  60. 1310 LL=10300
  61. 1312 IF CA$="S" THEN POKE (AD+2),32
  62. 1316 IF CA$="C" THEN POKE (AD+2),31
  63. 1320 FORX=1 TO 7
  64. 1330 GOSUB8500:REM**********LINE NO.***
  65. 1340 ON X GOSUB 10300,10310,10320,10330,10340,10350,10360
  66. 1350 GOSUB7100:REM******PROCESS VALS***
  67. 1360 OP$=INS$(X,1):GOSUB7500
  68. 1370 GOSUB5000:REM********PRINT VALS***
  69. 1380 NEXTX:IF PR$="P" THENPRINT#1,""
  70. 1390 RETURN
  71. 1400 GOSUB5600:REM*******HEADER(LSE)***
  72. 1410 LL=10400:POKE(AD+2),45
  73. 1420 FORX=1 TO 7
  74. 1430 GOSUB8500:REM**********LINE NO.***
  75. 1440 ON X GOSUB 10400,10410,10420,10430,10440,10450,10460
  76. 1450 GOSUB7100:REM******PROCESS VALS***
  77. 1460 OP$=LSE$(X,1):GOSUB7500
  78. 1470 GOSUB5000:REM********PRINT VALS***
  79. 1480 NEXTX:IF PR$="P" THENPRINT#1,""
  80. 1490 RETURN
  81. 1500 GOSUB5600:REM*******HEADER(RRA)***
  82. 1510 LL=10500
  83. 1512 IF CA$="S" THEN POKE (AD+2),178
  84. 1516 IF CA$="C" THEN POKE (AD+2),50
  85. 1520 FORX=1 TO 7
  86. 1530 GOSUB8500:REM****LINE NO.****
  87. 1540 ON X GOSUB 10500,10510,10520,10530,10540,10550,10560
  88. 1550 GOSUB7100:REM******PROCESS VALS***
  89. 1560 OP$=RRA$(X,1):GOSUB7500
  90. 1570 GOSUB5000:REM********PRINT VALS***
  91. 1580 NEXTX:IF PR$="P" THENPRINT#1,""
  92. 1590 RETURN
  93. 1600 GOSUB5600:REM******HEADER(AXS+)***
  94. 1610 LL=10600:POKE(AD+2),5
  95. 1620 FORX=1 TO 8
  96. 1630 GOSUB8500:REM**********LINE NO.***
  97. 1640 ON X GOSUB 10600,10610,10620,10630,10640,10650,10660,10670
  98. 1650 GOSUB7100:REM******PROCESS VALS***
  99. 1660 OP$=AXS$(X,1):GOSUB7500
  100. 1670 GOSUB5000:REM********PRINT VALS***
  101. 1680 NEXTX:IF PR$="P" THENPRINT#1,""
  102. 1690 RETURN
  103. 4000 REM*************SET/CLEAR CARRY***
  104. 4010 GOSUB9200
  105. 4020 PRINT"            ";
  106. 4030 PRINTCHR$(18);"C";CHR$(146);"LEAR CARRY?";:IF CA$="C" THENPRINT"_";
  107. 4035 PRINT:PRINT
  108. 4040 PRINT"                OR":PRINT
  109. 4050 PRINT"             ";
  110. 4060 PRINTCHR$(18);"S";CHR$(146);"ET CARRY  ";:IF CA$="S" THENPRINT"_";
  111. 4070 GET CA$:IFCA$=""THEN4070
  112. 4080 IF CA$="S" THEN POKE49972,56:POKE49984,56:RETURN
  113. 4090 IF CA$="C" THEN POKE49972,24:POKE49984,24:RETURN
  114. 4095 GOTO4070
  115. 4100 REM*******PRINT CARRY CLEAR/SET***
  116. 4110 PRINT"[145][145]";
  117. 4120 IF CA$="C" THEN PRINT"CARRY CLEAR":PRINT:PRINT:RETURN
  118. 4130 IF CA$="S" THEN PRINT"CARRY SET":PRINT:PRINT:RETURN
  119. 4140 PRINT"ERR":PRINT:PRINT:RETURN
  120. 5000 REM***(REST)******OUTPUT VALUES***
  121. 5010 CC=0:GOSUB 5100
  122. 5020 PRINTOP$;
  123. 5030 CC=14:GOSUB 5100
  124. 5040 PRINTFL$;
  125. 5050 CC=22:GOSUB 5100
  126. 5060 PRINTAC;
  127. 5070 CC=33:GOSUB 5100
  128. 5080 PRINTEX:IF PR$="P" THEN GOSUB5700
  129. 5090 RETURN
  130. 5100 REM***********SET CURSOR COLUMN***
  131. 5110 POKE780,0:POKE782,CC
  132. 5120 POKE 781,PEEK(214)
  133. 5130 SYS (58636)
  134. 5140 RETURN
  135. 5200 REM***(LAX)*******OUTPUT VALUES***
  136. 5210 CC=0:GOSUB 5100
  137. 5220 PRINTOP$;
  138. 5230 CC=14:GOSUB 5100
  139. 5240 PRINTFL$;
  140. 5250 CC=20:GOSUB 5100
  141. 5260 PRINTAC;
  142. 5270 CC=25:GOSUB 5100
  143. 5280 PRINTA1;
  144. 5290 CC=33:GOSUB 5100
  145. 5300 PRINTEX:IF PR$="P" THEN GOSUB5500
  146. 5310 RETURN
  147. 5400 REM**************PRINTER HEADER***
  148. 5405 IF CA$="S" THEN PRINT#1,"",,,"CARRY SET"
  149. 5410 IF CA$="C" THEN PRINT#1,"",,,"CARRY CLEAR"
  150. 5420 PRINT#1,"",
  151. 5430 PRINT#1,"OPCODE",
  152. 5440 PRINT#1,"O.K.?",
  153. 5450 PRINT#1,"ACTUAL",
  154. 5460 PRINT#1,"TARGET"
  155. 5470 PRINT#1,"****************************************************************";
  156. 5480 PRINT#1,"**********"
  157. 5490 RETURN
  158. 5500 REM****(LAX)*****PRINTER OUTPUT***
  159. 5510 PRINT#1," ";OP$,
  160. 5520 PRINT#1,"    ";FL$,
  161. 5530 PRINT#1," ";AC;
  162. 5540 PRINT#1," ";A1,
  163. 5550 PRINT#1,EX
  164. 5560 RETURN
  165. 5600 REM***************SCREEN HEADER***
  166. 5610 GOSUB9200:GOSUB4100
  167. 5620 PRINT" OPCODE      O.K.?    ACTUAL     TARGET"
  168. 5630 RETURN
  169. 5700 REM****(REST)****PRINTER OUTPUT***
  170. 5710 PRINT#1," ";OP$,
  171. 5720 PRINT#1,"    ";FL$,
  172. 5730 PRINT#1," ";AC,
  173. 5740 PRINT#1,EX
  174. 5750 RETURN
  175. 5800 REM**OPERATIVE CODE PRINT*********
  176. 5810 GOSUB9200
  177. 5820 GOSUB7950
  178. 5830 GOSUB7300
  179. 5840 IF PR$="S" THEN GOSUB7600:GOSUB7700:RETURN
  180. 5850 IF PR$="P" THEN GOSUB7800:GOSUB7850:GOSUB7600:GOSUB7700
  181. 5860 RETURN
  182. 6000 REM*ASS'R NOTATION HEADER (SCR)***
  183. 6010 PRINT"   INSTRUCTION      ASSEMBLER NOTATION"
  184. 6020 RETURN
  185. 6100 REM***(SCR)INSTR & ASR NOTATION***
  186. 6105 GOSUB9200:GOSUB6000
  187. 6110 FOR X=1 TO 7
  188. 6120 PRINT"    ";LAX$(X,3);"      ";LAX$(X,2)
  189. 6130 NEXTX:PRINT""
  190. 6135 GOSUB7200:GOSUB9200:GOSUB6000
  191. 6140 FOR X=1 TO 7
  192. 6150 PRINT"    ";ASO$(X,3);"      ";ASO$(X,2)
  193. 6160 NEXTX:PRINT""
  194. 6165 GOSUB7200:GOSUB9200:GOSUB6000
  195. 6170 FOR X=1 TO 8
  196. 6180 PRINT"    ";RLA$(X,3);"      ";RLA$(X,2)
  197. 6190 NEXTX:PRINT""
  198. 6195 GOSUB7200:GOSUB9200:GOSUB6000
  199. 6200 FOR X=1 TO 7
  200. 6210 PRINT"    ";INS$(X,3);"      ";INS$(X,2)
  201. 6220 NEXTX:PRINT""
  202. 6225 GOSUB7200:GOSUB9200:GOSUB6000
  203. 6230 FOR X=1 TO 7
  204. 6240 PRINT"    ";LSE$(X,3);"      ";LSE$(X,2)
  205. 6250 NEXTX:PRINT""
  206. 6255 GOSUB7200:GOSUB9200:GOSUB6000
  207. 6260 FOR X=1 TO 7
  208. 6270 PRINT"    ";RRA$(X,3);"      ";RRA$(X,2)
  209. 6280 NEXTX:PRINT""
  210. 6285 GOSUB7200:GOSUB9200:GOSUB6000
  211. 6290 FOR X=1 TO 8
  212. 6300 PRINT"    ";AXS$(X,3);"      ";AXS$(X,2)
  213. 6310 NEXTX:PRINT""
  214. 6315 GOSUB7200
  215. 6320 RETURN
  216. 6400 REM***************MENU - WORKING CODES/ALL CODES PLUS ASSEMBLER NOTATION***
  217. 6410 GOSUB9200
  218. 6420 PRINT"[145][145]":CC=16:GOSUB5100
  219. 6430 PRINTCHR$(18);
  220. 6440 PRINT"MENU";CHR$(146);""
  221. 6450 PRINT"      1. LIST SUCCESSFUL CODES.":PRINT
  222. 6460 PRINT"      2. LIST ALL CODES + HEX VALUES.":PRINT
  223. 6470 PRINT"      3. RESTART PROGRAM.":PRINT
  224. 6480 PRINT"      4. EXIT & INITIALISE"
  225. 6490 GET ME$:IF ME$="" THEN6490
  226. 6500 ME=VAL(ME$):IF ME<1 THEN 6490
  227. 6510 IF ME>4 THEN 6490
  228. 6520 RETURN
  229. 6600 REM**?ALL CODES & HEX VALS"
  230. 6610 [141] 9200
  231. 6620 [141] 9000
  232. 6630 [141] 7300
  233. 6640 [139] PR$[178]"S" [167] [141]6000:[141]6100:[142]
  234. 6650 [139] PR$[178]"P" [167] [141]6700:[141]6000:[141]6100
  235. 6660 [142]
  236. 6700 [143]******(PRT) HEADER CODES/HEX***
  237. 6710 [152]1,"","INSTRUCTION",,"ASSEMBLER NOTATION"
  238. 6720 [129] X[178]1 [164] 7
  239. 6730 [152]1,"",LAX$(X,1),,LAX$(X,2)
  240. 6740 [130]X:[152]1,""
  241. 6750 [129] X[178]1 [164] 7
  242. 6760 [152]1,"",ASO$(X,1),,ASO$(X,2)
  243. 6770 [130]X:[152]1,""
  244. 6780 [129] X[178]1 [164] 8
  245. 6790 [152]1,"",RLA$(X,1),,RLA$(X,2)
  246. 6800 [130]X:[152]1,""
  247. 6810 [129] X[178]1 [164] 7
  248. 6820 [152]1,"",INS$(X,1),,INS$(X,2)
  249. 6830 [130]X:[152]1,""
  250. 6840 [129] X[178]1 [164] 7
  251. 6850 [152]1,"",LSE$(X,1),,LSE$(X,2)
  252. 6860 [130]X:[152]1,""
  253. 6870 [129] X[178]1 [164] 7
  254. 6880 [152]1,"",RRA$(X,1),,RRA$(X,2)
  255. 6890 [130]X:[152]1,""
  256. 6900 [129] X[178]1 [164] 8
  257. 6910 [152]1,"",AXS$(X,1),,AXS$(X,2)
  258. 6920 [130]X:[152]1,""
  259. 6930 [142]
  260. 7000 [143]*****PROCESSING ROUTINE(LAX)***
  261. 7010 [139] [194](AD)[178]1 [167] FL$[178]"YES":[137]7040
  262. 7020 [139] [194](AD)[178]0 [167] FL$[178]"NO ":[137]7040
  263. 7030 FL$[178]"ERR"
  264. 7040 EX[178][194](AD[170]3)
  265. 7050 AC[178][194](AD[170]1)
  266. 7060 A1[178][194](AD[170]2)
  267. 7070 [142]
  268. 7100 [143]****PROCESSING ROUTINE(REST)***
  269. 7110 [139] [194](AD)[178]1 [167] FL$[178]"YES":[137]7140
  270. 7120 [139] [194](AD)[178]0 [167] FL$[178]"NO ":[137]7140
  271. 7130 FL$[178]"ERR"
  272. 7140 AC[178][194](AD[170]1)
  273. 7150 EX[178][194](AD[170]2)
  274. 7160 [142]
  275. 7200 [143]*WAIT FOR KEY & PRINT MESSAGE**
  276. 7210 [153][199](18);
  277. 7220 [151]780,0:[151]781,23:[151]782,9:[158]65520
  278. 7230 [153]"PRESS SPACE FOR MORE";
  279. 7240 [153][199](146);
  280. 7250 [161]IK$:[139] IK$[179][177]" " [167]7250
  281. 7260 [153][199](146);
  282. 7270 [151]780,0:[151]781,23:[151]782,9:[158]65520
  283. 7280 [153]"                     ";
  284. 7290 [142]
  285. 7300 [143]***********SCREEN OR PRINTER***
  286. 7320 [153]"          ";
  287. 7330 [153][199](18);"S";
  288. 7340 [153][199](146);"CREEN OR ";
  289. 7350 [153][199](18);"P";
  290. 7360 [153][199](146);"RINTER ?"
  291. 7370 [161]PR$:[139] PR$[178]"" [167]7370
  292. 7380 [139] PR$[178]"S" [167] [142]
  293. 7390 [139] PR$[178]"P" [167] [137]7400
  294. 7395 [137] 7370
  295. 7400 [141]9200
  296. 7410 [153]"";
  297. 7420 [153]"    PLEASE ENSURE THAT YOUR PRINTER"
  298. 7430 [153]"       IS SWITCHED ON AND READY."
  299. 7440 [153]"            PRESS ANY KEY."
  300. 7480 [161]IX$:[139] IX$[178]"" [167]7480
  301. 7490 [142]
  302. 7500 [143]********GET SUCCESSFUL TESTS***
  303. 7510 [139] FL$[178]"NO " [167] [142]
  304. 7520 YE$(LX)[178]OP$
  305. 7530 LX[178]LX[170]1
  306. 7540 [142]
  307. 7600 [143]*(SCR)*HEADER FOR POS' TESTS***
  308. 7610 [141] 9200
  309. 7620 [153]"";
  310. 7630 [153]"        OPERATIVE CODES"
  311. 7640 [142]
  312. 7700 [143]**(SCR)******PRINT POS TESTS***
  313. 7710 [139] CA$[178]"C" [167] [153]"        CARRY CLEAR":[153]
  314. 7720 [139] CA$[178]"S" [167] [153]"          CARRY SET":[153]
  315. 7730 [153]
  316. 7740 [129] ZA[178]0 [164] LX
  317. 7750 [153]"           ";YE$(ZA)
  318. 7760 [130] ZA:[141]7200
  319. 7770 [142]
  320. 7800 [143]*(PRT)*HEADER FOR POS' TESTS***
  321. 7810 [152]1,"                    OPERATIVE OPCODES"
  322. 7820 [139] CA$[178]"C" [167] [152]1,"                      (CARRY CLEAR)"
  323. 7830 [139] CA$[178]"S" [167] [152]1,"                      (CARRY SET)"
  324. 7840 [153]:[142]
  325. 7850 [143]**(PRT)******PRINT POS TESTS***
  326. 7860 [129] ZA[178]0 [164] LX
  327. 7870 [152]1,"                          ";YE$(ZA)
  328. 7880 [130] ZA
  329. 7890 [142]
  330. 7900 [143]********PRINT"FULL RES'TABLE***
  331. 7910 PRINT"          FULL RESULT TABLE"
  332. 7920 RETURN
  333. 7950 REM*****?"OPERATIVE CODES"
  334. 7960 PRINT"           SUCCESSFUL CODES"
  335. 7970 RETURN
  336. 8500 REM***************PRINT LNE NO.***
  337. 8510 LI=LL+(X*10)-10
  338. 8520 PRINTLI;
  339. 8530 RETURN
  340. 9000 REM*****?"CODES & VALUES"
  341. 9010 PRINT"          ALL CODES & VALUES"
  342. 9020 RETURN
  343. 9200 REM*********CLEAR SCREEN & HOME***
  344. 9210 PRINTCHR$(19);CHR$(147);
  345. 9230 PRINT"";:RETURN
  346. 10000 SYS49152:RETURN:REM LAX1
  347. 10010 SYS49167:RETURN:REM LAX2
  348. 10020 SYS49184:RETURN:REM LAX3
  349. 10030 SYS49201:RETURN:REM LAX4
  350. 10040 SYS49215:RETURN:REM LAX5
  351. 10050 SYS49231:RETURN:REM LAX6
  352. 10060 SYS49250:RETURN:REM LAX7
  353. 10100 SYS49269:RETURN:REM ASO1
  354. 10110 SYS49282:RETURN:REM ASO2
  355. 10120 SYS49297:RETURN:REM ASO3
  356. 10130 SYS49312:RETURN:REM ASO4
  357. 10140 SYS49324:RETURN:REM ASO5
  358. 10150 SYS49338:RETURN:REM ASO6
  359. 10160 SYS49355:RETURN:REM ASO7
  360. 10200 SYS49372:RETURN:REM RLA1
  361. 10210 SYS49385:RETURN:REM RLA2
  362. 10220 SYS49400:RETURN:REM RLA3
  363. 10230 SYS49415:RETURN:REM RLA4
  364. 10240 SYS49427:RETURN:REM RLA5
  365. 10250 SYS49441:RETURN:REM RLA6
  366. 10260 SYS49458:RETURN:REM RLA7
  367. 10270 SYS49475:RETURN:REM RLA8
  368. 10300 SYS49489:RETURN:REM INS1
  369. 10310 SYS49499:RETURN:REM INS2
  370. 10320 SYS49514:RETURN:REM INS3
  371. 10330 SYS49529:RETURN:REM INS4
  372. 10340 SYS49541:RETURN:REM INS5
  373. 10350 SYS49555:RETURN:REM INS6
  374. 10360 SYS49572:RETURN:REM INS7
  375. 10400 SYS49589:RETURN:REM LSE1
  376. 10410 SYS49602:RETURN:REM LSE2
  377. 10420 SYS49617:RETURN:REM LSE3
  378. 10430 SYS49632:RETURN:REM LSE4
  379. 10440 SYS49644:RETURN:REM LSE5
  380. 10450 SYS49658:RETURN:REM LSE6
  381. 10460 SYS49675:RETURN:REM LSE7
  382. 10500 SYS49692:RETURN:REM RRA1
  383. 10510 SYS49705:RETURN:REM RRA2
  384. 10520 SYS49720:RETURN:REM RRA3
  385. 10530 SYS49735:RETURN:REM RRA4
  386. 10540 SYS49747:RETURN:REM RRA5
  387. 10550 SYS49761:RETURN:REM RRA6
  388. 10560 SYS49778:RETURN:REM RRA7
  389. 10600 SYS49795:RETURN:REM AXS1
  390. 10610 SYS49817:RETURN:REM AXS2
  391. 10620 SYS49831:RETURN:REM AXS3
  392. 10630 SYS49847:RETURN:REM AXS4
  393. 10640 POKEAD+2,0:SYS49874:RETURN:REM STZ1
  394. 10650 POKEAD+2,2:SYS49892:RETURN:REM ALR1
  395. 10660 POKEAD+2,128:SYS49903:RETURN:REM SAX1
  396. 10670 POKEAD+2,5:SYS49917:RETURN:REM TAD1
  397. 12000 LAX$(1,1)="LAX ABS    "
  398. 12005 LAX$(1,2)=".BYT $AF,$FE,$02"
  399. 12007 LAX$(1,3)="LAX $02FE  "
  400. 12010 LAX$(2,1)="LAX ABS,X  "
  401. 12015 LAX$(2,2)=".BYT $DF,FB,$02"
  402. 12017 LAX$(2,3)="LAX $02FB,X"
  403. 12020 LAX$(3,1)="LAX ABS,Y  "
  404. 12025 LAX$(3,2)=".BYT $DB,$FB,$02"
  405. 12027 LAX$(3,3)="LAX $02FB,Y"
  406. 12030 LAX$(4,1)="LAX ZERO   "
  407. 12035 LAX$(4,2)=".BYT $C7,$FE"
  408. 12037 LAX$(4,3)="LAX $FE    "
  409. 12040 LAX$(5,1)="LAX ZERO,X "
  410. 12045 LAX$(5,2)=".BYT $D7,$FB"
  411. 12047 LAX$(5,3)="LAX $FB,X  "
  412. 12050 LAX$(6,1)="LAX (IND,X)"
  413. 12055 LAX$(6,2)=".BYT $C3,$FB"
  414. 12057 LAX$(6,3)="LAX ($FB,X)"
  415. 12060 LAX$(7,1)="LAX (IND,Y)"
  416. 12065 LAX$(7,2)=".BYT $D3,$FB"
  417. 12067 LAX$(7,3)="LAX ($FB,Y)"
  418. 12100 ASO$(1,1)="ASO ABS    "
  419. 12105 ASO$(1,2)=".BYT $0F,$FE,$02"
  420. 12107 ASO$(1,3)="ASO $02FE  "
  421. 12110 ASO$(2,1)="ASO ABS,X  "
  422. 12115 ASO$(2,2)=".BYT $1F,$FB,$02"
  423. 12117 ASO$(2,3)="ASO $02FB,X"
  424. 12120 ASO$(3,1)="ASO ABS,Y  "
  425. 12125 ASO$(3,2)=".BYT $1B,$FB,$02"
  426. 12127 ASO$(3,3)="ASO $02FB,Y"
  427. 12130 ASO$(4,1)="ASO ZERO   "
  428. 12135 ASO$(4,2)=".BYT $07,$FE"
  429. 12137 ASO$(4,3)="ASO $FE    "
  430. 12140 ASO$(5,1)="ASO ZERO,X "
  431. 12145 ASO$(5,2)=".BYT $17,$FB"
  432. 12147 ASO$(5,3)="ASO $FE,Y  "
  433. 12150 ASO$(6,1)="ASO (IND,X)"
  434. 12155 ASO$(6,2)=".BYT $03,$FB"
  435. 12157 ASO$(6,3)="ASO ($FB,X)"
  436. 12160 ASO$(7,1)="ASO (IND,Y)"
  437. 12165 ASO$(7,2)=".BYT $0B,$FB"
  438. 12167 ASO$(7,3)="ASO ($FB,Y)"
  439. 12200 RLA$(1,1)="RLA ABS    "
  440. 12205 RLA$(1,2)=".BYT $2F,$FE,$02"
  441. 12207 RLA$(1,3)="RLA $02FE  "
  442. 12210 RLA$(2,1)="RLA ABS,X  "
  443. 12215 RLA$(2,2)=".BYT $3F,$FB,$02"
  444. 12217 RLA$(2,3)="RLA $02FB,X"
  445. 12220 RLA$(3,1)="RLA ABS,Y  "
  446. 12225 RLA$(3,2)=".BYT $3B,$FB,$02"
  447. 12227 RLA$(3,3)="RLA $02FB,Y"
  448. 12230 RLA$(4,1)="RLA ZERO   "
  449. 12235 RLA$(4,2)=".BYT $27,$FE"
  450. 12237 RLA$(4,3)="RLA $FE    "
  451. 12240 RLA$(5,1)="RLA ZERO,X "
  452. 12245 RLA$(5,2)=".BYT $37,$FB"
  453. 12247 RLA$(5,3)="RLA $FB,X  "
  454. 12250 RLA$(6,1)="RLA (IND,X)"
  455. 12255 RLA$(6,2)=".BYT $23,$FB"
  456. 12257 RLA$(6,3)="RLA ($FB,X)"
  457. 12260 RLA$(7,1)="RLA (IND,Y)"
  458. 12265 RLA$(7,2)=".BYT $33,$FB"
  459. 12267 RLA$(7,3)="RLA ($FB,Y)"
  460. 12270 RLA$(8,1)="RLA IMM    "
  461. 12275 RLA$(8,2)=".BYT $2B,$55"
  462. 12277 RLA$(8,3)="RLA #$55   "
  463. 12300 INS$(1,1)="INS ABS    "
  464. 12305 INS$(1,2)=".BYT $EF,$FE,$02"
  465. 12307 INS$(1,3)="INS $02FE  "
  466. 12310 INS$(2,1)="INS ABS,X  "
  467. 12315 INS$(2,2)=".BYT $FF,$FB,$02"
  468. 12317 INS$(2,3)="INS $02FB,X"
  469. 12320 INS$(3,1)="INS ABS,Y  "
  470. 12325 INS$(3,2)=".BYT $FB,$FB,$02"
  471. 12327 INS$(3,3)="INS $02FB,Y"
  472. 12330 INS$(4,1)="INS ZERO   "
  473. 12335 INS$(4,2)=".BYT $E7,$FE"
  474. 12337 INS$(4,3)="INS $FE    "
  475. 12340 INS$(5,1)="INS ZERO,X "
  476. 12345 INS$(5,2)=".BYT $F7,$FB"
  477. 12347 INS$(5,3)="INS $FB,X  "
  478. 12350 INS$(6,1)="INS (IND,X)"
  479. 12355 INS$(6,2)=".BYT $E3,$FB"
  480. 12357 INS$(6,3)="INS ($FB,X)"
  481. 12360 INS$(7,1)="INS (IND,Y)"
  482. 12365 INS$(7,2)=".BYT $F3,$FB"
  483. 12367 INS$(7,3)="INS ($FB,Y)"
  484. 12400 LSE$(1,1)="LSE ABS    "
  485. 12405 LSE$(1,2)=".BYT $4F,$FE,$02"
  486. 12407 LSE$(1,3)="LSE $02FE  "
  487. 12410 LSE$(2,1)="LSE ABS,X  "
  488. 12415 LSE$(2,2)=".BYT $5F,$FB,$02"
  489. 12417 LSE$(2,3)="LSE $02FB,X"
  490. 12420 LSE$(3,1)="LSE ABS,Y  "
  491. 12425 LSE$(3,2)=".BYT $5B,$FB,$02"
  492. 12427 LSE$(3,3)="LSE $02FB,Y"
  493. 12430 LSE$(4,1)="LSE ZERO   "
  494. 12435 LSE$(4,2)=".BYT $47,$FE"
  495. 12437 LSE$(4,3)="LSE $FE    "
  496. 12440 LSE$(5,1)="LSE ZERO,X "
  497. 12445 LSE$(5,2)=".BYT $57,$FB"
  498. 12447 LSE$(5,3)="LSE $FB,X  "
  499. 12450 LSE$(6,1)="LSE (IND,X)"
  500. 12455 LSE$(6,2)=".BYT $43,$FB"
  501. 12457 LSE$(6,3)="LSE ($FB,X)"
  502. 12460 LSE$(7,1)="LSE (IND,Y)"
  503. 12465 LSE$(7,2)=".BYT $53,$FB"
  504. 12467 LSE$(7,3)="LSE ($FB,Y)"
  505. 12500 RRA$(1,1)="RRA ABS    "
  506. 12505 RRA$(1,2)=".BYT $6F,$FE,$02"
  507. 12507 RRA$(1,3)="RRA $02FE  "
  508. 12510 RRA$(2,1)="RRA ABS,X  "
  509. 12515 RRA$(2,2)=".BYT $7F,$FB,$02"
  510. 12517 RRA$(2,3)="RRA $02FB,X"
  511. 12520 RRA$(3,1)="RRA ABS,Y  "
  512. 12525 RRA$(3,2)=".BYT $7B,$FB,$02"
  513. 12527 RRA$(3,3)="RRA $02FB,Y"
  514. 12530 RRA$(4,1)="RRA ZERO   "
  515. 12535 RRA$(4,2)=".BYT $67,$FE"
  516. 12537 RRA$(4,3)="RRA $FE    "
  517. 12540 RRA$(5,1)="RRA ZERO,X "
  518. 12545 RRA$(5,2)=".BYT $77,$FB"
  519. 12547 RRA$(5,3)="RRA $FB,X  "
  520. 12550 RRA$(6,1)="RRA (IND,X)"
  521. 12555 RRA$(6,2)=".BYT $63,$FB"
  522. 12557 RRA$(6,3)="RRA ($FB,X)"
  523. 12560 RRA$(7,1)="RRA (IND,Y)"
  524. 12565 RRA$(7,2)=".BYT $73,$FB"
  525. 12567 RRA$(7,3)="RRA ($FB,Y)"
  526. 12600 AXS$(1,1)="AXS ABS    "
  527. 12605 AXS$(1,2)=".BYT $8F,$FE,$02"
  528. 12607 AXS$(1,3)="AXS $02FE  "
  529. 12610 AXS$(2,1)="AXS ZERO   "
  530. 12615 AXS$(2,2)=".BYT $87,$FE"
  531. 12617 AXS$(2,3)="AXS $FE    "
  532. 12620 AXS$(3,1)="AXS ZERO,Y "
  533. 12625 AXS$(3,2)=".BYT $97,$FB"
  534. 12627 AXS$(3,3)="AXS $FB,Y  "
  535. 12630 AXS$(4,1)="AXS (IND,X)"
  536. 12635 AXS$(4,2)=".BYT $83,$FB"
  537. 12637 AXS$(4,3)="AXS $FB,X  "
  538. 12640 AXS$(5,1)="STZ ABS    "
  539. 12645 AXS$(5,2)=".BYT $9C,$FE,$02
  540. 12647 AXS$(5,3)[178]"STZ $02FE  "
  541. 12650 AXS$(6,1)[178]"ALR IMM    "
  542. 12655 AXS$(6,2)[178]".BYT $4B,$07"
  543. 12657 AXS$(6,3)[178]"ALR #$07   "
  544. 12660 AXS$(7,1)[178]"SAX IMM    "
  545. 12665 AXS$(7,2)[178]".BYT $CB,$20"
  546. 12667 AXS$(7,3)[178]"AXS #$20   "
  547. 12670 AXS$(8,1)[178]"TAD ABS    "
  548. 12675 AXS$(8,2)[178]".BYT $8B,$20"
  549. 12677 AXS$(8,3)[178]"TAD #$20   "
  550. 12680 [142]
  551.